Automating Plotlyr Chart In Shiny